home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / pc / 00000000 / 14000000 / 14010000 / shared.dir / 00967_Script_967 < prev   
Text File  |  1995-11-17  |  2KB  |  61 lines
  1. -- Handler called by "copy" button in zoom frame.
  2. -- It stores the reference to which slide and palette to
  3. -- grab and which movie it is grabbing it from into globals.
  4. -- Then piratewindow is told to open and go to a frame
  5. -- The rest of the process is handled by Pirate.dir.
  6.  
  7. on copySlide
  8.   global slideToGrab, paletteToGrab, returnPath, pirateWindow
  9.   global slideFileName
  10.   
  11.   put the castNum of sprite 5 into slideToGrab
  12.   
  13.   put the fileName of cast slideToGrab into slideFileName
  14.   
  15.   --put (( the castNum of sprite 5 ) - 1 ) into paletteToGrab
  16.   put the pathname & the moviename into returnPath -- route back here
  17.   set the windowType of window pirateWindow = 1
  18.   set the visibility of sprite 5 to false
  19.   set the visibility of sprite 6 to false
  20.   updateStage
  21.   open window pirateWindow
  22.   
  23.   tell window pirateWindow
  24.     
  25.     go frame "WhichCopy"
  26.     
  27.   end tell
  28.   
  29.   
  30. end copySlide 
  31. -----------------------------------------------------------------
  32. -- Handler called from "Slidebox" button to open Pirate and store
  33. -- path back to this movie.
  34.  
  35. on goSlideBox
  36.   global returnPath, pirateWindow
  37.   
  38.   put the pathname & the moviename into returnPath -- route back here
  39.   set the windowType of window pirateWindow = 1
  40.   set the visibility of sprite 5 to false
  41.   set the visibility of sprite 6 to false
  42.   updateStage
  43.   
  44.   open window pirateWindow
  45.   
  46.   tell window pirateWindow
  47.     
  48.     go frame "WhichBox2"
  49.     
  50.   end tell
  51.   
  52.   
  53. end goSlideBox
  54. -----------------------------------------------------------------
  55. on keyDown
  56.   
  57.   if (the commandDown) and ( the key = "Q" ) then quitScript
  58.   
  59.   if the key = RETURN then beep 2
  60.   
  61. end